home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ggetvi1r / cimgquad.cls next >
Text File  |  1999-05-28  |  856b  |  31 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CImgQuad"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Public ImageStart As StdPicture
  15. Public ImageCompiled As StdPicture
  16. Public ImageMask As StdPicture
  17. Public UseTranslucency As Boolean
  18. Public UseTransparency As Boolean
  19. Public TranslucencyColor As OLE_COLOR
  20. Public TransparencyColor As OLE_COLOR
  21. Public TranslucencyPercentile As Byte
  22. Public Enum IQStyle
  23.     [TransL!=Solid]
  24.     [TransL=Solid]
  25. End Enum
  26. Public Style As IQStyle
  27. Private Sub Class_Initialize()
  28.     UseTranslucency = True
  29.     UseTransparency = True
  30. End Sub
  31.